object frmMain: TfrmMain
  Left = 0
  Top = 0
  Caption = #21333#20803#22836#37096#35828#26126#32500#25252
  ClientHeight = 516
  ClientWidth = 1051
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'Segoe UI'
  Font.Style = []
  OnCreate = FormCreate
  OnDblClick = FormDblClick
  DesignSize = (
    1051
    516)
  TextHeight = 17
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 32
    Height = 17
    Caption = #30446#24405
  end
  object TLabel
    Left = 383
    Top = 8
    Width = 48
    Height = 17
    Caption = #25193#23637#21517
  end
  object TLabel
    Left = 8
    Top = 263
    Width = 32
    Height = 17
    Caption = #20195#30721
  end
  object lFileName: TLabel
    Left = 535
    Top = 8
    Width = 48
    Height = 17
    Caption = #25991#20214#21517
  end
  object TLabel
    Left = 96
    Top = 263
    Width = 64
    Height = 17
    Caption = #25918#32622#20301#32622
  end
  object lbSourcePath: TListBox
    Left = 8
    Top = 31
    Width = 365
    Height = 225
    ItemHeight = 17
    Items.Strings = (
      'F:\Hawk\UPF_FPC')
    MultiSelect = True
    TabOrder = 0
  end
  object lbExts: TListBox
    Left = 379
    Top = 31
    Width = 146
    Height = 226
    ItemHeight = 17
    Items.Strings = (
      'dpr'
      'pas')
    MultiSelect = True
    TabOrder = 1
  end
  object bAddPath: TBitBtn
    Left = 317
    Top = 4
    Width = 25
    Height = 25
    Caption = '+'
    TabOrder = 2
    OnClick = bAddPathClick
  end
  object bDelPath: TBitBtn
    Left = 348
    Top = 4
    Width = 25
    Height = 25
    Caption = '-'
    TabOrder = 3
    OnClick = bDelPathClick
  end
  object bAddExt: TBitBtn
    Left = 469
    Top = 4
    Width = 25
    Height = 25
    Caption = '+'
    TabOrder = 4
    OnClick = bAddExtClick
  end
  object bDelExt: TBitBtn
    Left = 500
    Top = 4
    Width = 25
    Height = 25
    Caption = '-'
    TabOrder = 5
    OnClick = bDelPathClick
  end
  object mReplaceCode: TMemo
    Left = 8
    Top = 286
    Width = 517
    Height = 195
    Anchors = [akLeft, akTop, akBottom]
    Lines.Strings = (
      '////////////////////////////////////////////////'
      '//                '#21333#20803#21517': %unitname%'
      '//                '#20316#32773':  Hawk'
      '//                '#21333#20803#25551#36848':'
      '//                '#26085#26399': 2023-09-15'
      '////////////////////////////////////////////////'
      ''
      '{$IFDEF FPC}'
      '{$H+}'
      '{$MODE DELPHI}'
      '{$ENDIF}')
    TabOrder = 6
  end
  object bExec: TBitBtn
    Left = 469
    Top = 259
    Width = 56
    Height = 25
    Caption = '>'
    TabOrder = 7
    OnClick = bExecClick
  end
  object cbCodePlace: TComboBox
    Left = 170
    Top = 259
    Width = 293
    Height = 25
    Style = csDropDownList
    ItemIndex = 0
    TabOrder = 8
    Text = 'unit '#20043#21069
    Items.Strings = (
      'unit '#20043#21069
      'interface '#20043#21069)
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 487
    Width = 1051
    Height = 29
    Panels = <
      item
        Text = #20351#29992' %unitname% '#34920#31034#23454#38469#30340#21333#20803#21517
        Width = 50
      end>
  end
  object bSaveFile: TBitBtn
    Left = 991
    Top = 4
    Width = 25
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'S'
    TabOrder = 10
    OnClick = bSaveFileClick
  end
  object bNextFile: TBitBtn
    Left = 1022
    Top = 4
    Width = 25
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '>'
    TabOrder = 11
    OnClick = bPrevFileClick
  end
  object bPrevFile: TBitBtn
    Left = 960
    Top = 4
    Width = 25
    Height = 25
    Anchors = [akTop, akRight]
    Caption = '<'
    TabOrder = 12
    OnClick = bPrevFileClick
  end
  object mFileCode: TMemo
    Left = 531
    Top = 31
    Width = 512
    Height = 450
    Anchors = [akLeft, akTop, akRight, akBottom]
    ScrollBars = ssBoth
    TabOrder = 13
  end
  object bTest: TBitBtn
    Left = 929
    Top = 4
    Width = 25
    Height = 25
    Anchors = [akTop, akRight]
    Caption = 'T'
    TabOrder = 14
    OnClick = bTestClick
  end
end
